home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
paswiz14.zip
/
SOURCE.ZIP
/
EQUIPMEN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-02-20
|
2KB
|
90 lines
{ +----------------------------------------------------------------------+
| |
| PasWiz Copyright (c) 1990-1993 Thomas G. Hanlin III |
| 3544 E. Southern Ave. #104, Mesa, AZ 85204 |
| |
| The Pascal Wizard's Library |
| |
+----------------------------------------------------------------------+
Equipment:
This unit provides information about the computing environment from both
hardware and software perspectives.
}
UNIT Equipment;
INTERFACE
FUNCTION AllExtMem: LONGINT;
FUNCTION CDROM: INTEGER;
FUNCTION CommPorts: INTEGER;
FUNCTION Floppies: INTEGER;
FUNCTION GetExtM: LONGINT;
FUNCTION EnhKbd: BOOLEAN;
FUNCTION Processor: INTEGER;
FUNCTION PrtPorts: INTEGER;
PROCEDURE FloppyType (VAR Drive1, Drive2: INTEGER);
PROCEDURE Get4DOSv (VAR MajorV, MinorV: INTEGER);
PROCEDURE GetDisplay (VAR Adapter: INTEGER; VAR Mono: BOOLEAN);
PROCEDURE GetDOSv (VAR MajorV, MinorV: INTEGER);
PROCEDURE GetEMSm (VAR TotalPages, FreePages: INTEGER);
PROCEDURE GetEMSv (VAR MajorV, MinorV: INTEGER);
PROCEDURE GetXMSm (VAR LargestFree, TotalFree: LONGINT);
PROCEDURE GetXMSv (VAR MajorV, MinorV: INTEGER);
PROCEDURE WinCheck (VAR MajorV, MinorV: INTEGER);
{ --------------------------------------------------------------------------- }
IMPLEMENTATION
{$F+}
{ the routines are actually in assembly language }
FUNCTION AllExtMem; external;
FUNCTION CDROM; external;
FUNCTION CommPorts; external;
FUNCTION Floppies; external;
FUNCTION GetExtM; external;
FUNCTION EnhKbd; external;
FUNCTION Processor; external;
FUNCTION PrtPorts; external;
PROCEDURE FloppyType; external;
PROCEDURE Get4DOSv; external;
PROCEDURE GetDisplay; external;
PROCEDURE GetDOSv; external;
PROCEDURE GetEMSm; external;
PROCEDURE GetEMSv; external;
PROCEDURE GetXMSm; external;
PROCEDURE GetXMSv; external;
PROCEDURE WinCheck; external;
{$L EQUIP}
{ ----------------------- initialization code --------------------------- }
BEGIN
END.